home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Utilities / Ph 1.1.1 / Lib / tcg.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-08-29  |  1.5 KB  |  60 lines  |  [TEXT/MPS ]
  1. /*______________________________________________________________________
  2.  
  3.     tcg.c - Think C Glue.
  4.     
  5.     These routines are supplied as glue in MPW, but are missing in Think C,
  6.     even though they're prototyped in <Resources.h>.
  7.     
  8.     Written by Ephraim Vishniac.
  9. _____________________________________________________________________*/
  10.  
  11. #include <Pascal.h>
  12.  
  13. short openrfperm(char *fileName,short vRefNum,char permission)
  14. {
  15.     short retval;
  16.  
  17.     CtoPstr(fileName);
  18.     retval = OpenRFPerm((unsigned char *)fileName, vRefNum, permission);
  19.     PtoCstr((unsigned char *)fileName);
  20.     
  21.     return retval;
  22. }
  23.  
  24. short openresfile(char *fileName)
  25. {
  26.     short retval;
  27.     CtoPstr(fileName);
  28.     retval = OpenResFile((unsigned char *)fileName);
  29.     PtoCstr((unsigned char *)fileName);
  30.     
  31.     return retval;
  32. }
  33.  
  34. void createresfile(char *fileName)
  35. {
  36.     CtoPstr(fileName);
  37.     CreateResFile((unsigned char *)fileName);
  38.     PtoCstr((unsigned char *)fileName);
  39. }
  40.  
  41. void getresinfo(Handle theResource,short *theID,ResType *theType,char *name)
  42. {
  43.     GetResInfo(theResource, theID, theType, (unsigned char *)name);
  44.     PtoCstr((unsigned char *)name);
  45. }
  46.  
  47. void setresinfo(Handle theResource,short theID,char *name)
  48. {
  49.     if (name != NULL) CtoPstr(name);
  50.     SetResInfo(theResource, theID, (unsigned char *)name);
  51.     if (name != NULL) PtoCstr((unsigned char *)name);
  52. }
  53.  
  54. void addresource(Handle theResource,ResType theType,short theID,char *name)
  55. {
  56.     if (name != NULL) CtoPstr(name);
  57.     AddResource(theResource, theType, theID, (unsigned char *)name);
  58.     if (name != NULL) PtoCstr((unsigned char *)name);
  59. }
  60.